home *** CD-ROM | disk | FTP | other *** search
/ Sacrifice One Self for One's Sadism / Sacrifice One Self for One's Sadism.iso / pc / sele.dir / 00049.ls < prev    next >
Encoding:
Text File  |  1997-01-11  |  462 b   |  38 lines

  1. on flash
  2.   global fn
  3.   repeat with n = 2 to 17
  4.     if rollOver(n) then
  5.       set fn to n
  6.       set z to (n * 2) + 1
  7.       go(z)
  8.     end if
  9.   end repeat
  10. end
  11.  
  12. on flashe
  13.   global fn
  14.   if rollOver(fn) then
  15.   else
  16.     go(4)
  17.   end if
  18. end
  19.  
  20. on season
  21.   global fs
  22.   repeat with n = 2 to 6
  23.     if rollOver(n) then
  24.       set fs to n
  25.       set z to n + 79
  26.       go(z)
  27.     end if
  28.   end repeat
  29. end
  30.  
  31. on seasone
  32.   global fs
  33.   if rollOver(fs) then
  34.   else
  35.     go(80)
  36.   end if
  37. end
  38.